<%

Function mercado_get (conexao, tabela, id, campo)

	DIM nome

	If isIndividuais(tabela) then
		
		If campo="nome" then campo = "login"
	
		nome = usuario_get(id,campo)
	
	Else

		str = "Select "&campo&" FROM clubes WHERE id="&id
		Set rs = conexao.Execute(str)
		
		If not rs.eof then
		
			nome = rs(campo)
			
		End If
	
	End If
	
	If nome="" then nome = "Indefinido "&(id*-1)
	
	mercado_get = nome

End Function

%>
